5 POKE53280,4:POKE53281,4:PRINT"[144][147]"
10 FORI=1TO7:READA$(I):NEXT
15 S$="[144]":T$=""
20 FORI=1TO6:READB(I),C(I),D(I):NEXT
100 A=INT(6*RND(1)+1):B=INT(6*RND(1)+1):C=INT(6*RND(1)+1):D=INT(6*RND(1)+1)
110 GOSUB900
130 PRINT"";
140 TA=0:PE=0
150 IFA/2<>INT(A/2)THENTA=1:PE=A-1
160 IFB/2<>INT(B/2)THENTA=TA+1:PE=PE+B-1
170 IFC/2<>INT(C/2)THENTA=TA+1:PE=PE+C-1
180 IFD/2<>INT(D/2)THENTA=TA+1:PE=PE+D-1
185 IFTE=1THEN300
190 PRINT"[144]THERE ";:IFTA=1THENPRINT"IS 1 TABLE."
200 IFTA<>1THENPRINT"ARE"TA"TABLES."
210 PRINT"THERE ARE"PE"PEOPLE AT THE TABLE";:IFTA<>1THENPRINT"S";
220 PRINT"."
230 PRINT"HIT ANY KEY, T TO TEST THEORY, E TO END"
240 GETA$:IFA$=""THEN240
250 IFA$<>"T"ANDA$<>"E"THEN100
260 IFA$="T"THENTE=1:SC=0:GOTO100
270 GOTO63000
300 INPUT"HOW MANY TABLES";T
310 INPUT"HOW MANY PEOPLE";P
320 IFT<>TAORP<>PETHENTE=0:PRINT"SORRY, I DON'T THINK YOU HAVE IT!":GOTO190
330 PRINT"VERY GOOD!":SC=SC+1:IFSC=5THENPRINT"[147]I THINK YOU'VE SOLVED IT!"
331 GOTO63000
340 PRINT"HIT ANY KEY TO CONTINUE"
350 GETA$:IFA$=""THEN350
360 GOTO100
900 REM A, B, C, AND D ARE NUMBERS
905 PRINT"[147]"
910 PRINTT$;A$(1);A$(1);S$;A$(1);A$(1)
915 PRINTT$;A$(B(A));A$(B(B));S$;A$(B(C));A$(B(D))
920 PRINTT$;A$(C(A));A$(C(B));S$;A$(C(C));A$(C(D))
925 PRINTT$;A$(D(A));A$(D(B));S$;A$(D(C));A$(D(D))
930 PRINTT$;A$(7);A$(7);S$;A$(7);A$(7)
940 RETURN
1000 DATA"[213][195][195][195][201]  ","[194]   [194]  ","[194] [209] [194]  ","[194][209] [209][194]  ","[194][209]  [194]  ","[194]  [209][194]  ","[202][195][195][195][203]  "
1010 DATA2,3,2,5,2,6,5,3,6,4,2,4,4,3,4,4,4,4
63000 PRINT"[147]"
63005 PRINT"LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63010 POKE631,13:POKE632,13:POKE198,2:END